home *** CD-ROM | disk | FTP | other *** search
/ PCMania 73 / PCMania CD73_1.iso / pcmania / render73 / Foro / FUERTES / GALEON / PALOS.INC < prev    next >
Text File  |  1998-07-06  |  7KB  |  280 lines
  1. #declare mastelero_mesana=
  2. union
  3. {
  4.  union
  5.  {
  6.   cone {<0,0,0>,1.5,<55,0,0>,1}
  7.   cone {<0,0,0>,1.5,<-55,0,0>,1}
  8.   texture {madera1}
  9.  }
  10.  union
  11.  {
  12.   cylinder {<10,0,0>,<-10,0,0>,1.55}
  13.   sphere {0,1.5 scale <1,1,.1> translate <20,0,0>}
  14.   sphere {0,1.5 scale <1,1,.1> translate <-20,0,0>}
  15.   sphere {0,1.25 scale <1,1,.1> translate <35,0,0>}
  16.   sphere {0,1.25 scale <1,1,.1> translate <-35,0,0>}
  17.   texture {metal}
  18.  }
  19. }
  20.  
  21. #declare mastelero_mayor_mayor=
  22. union
  23. {
  24.  union
  25.  {
  26.   cone {<0,0,0>,1.5,<0,0,-60>,1}
  27.   cone {<0,0,0>,1.5,<0,0,60>,1}
  28.   texture {madera1}
  29.  }
  30.  union
  31.  {
  32.   cylinder {<0,0,10>,<0,0,-10>,1.55}
  33.   sphere {0,1.5 scale <1,1,.1> translate <0,0,30>}
  34.   sphere {0,1.5 scale <1,1,.1> translate <0,0,-30>}
  35.   sphere {0,1.25 scale <1,1,.1> translate <0,0,50>}
  36.   sphere {0,1.25 scale <1,1,.1> translate <0,0,-50>}
  37.   torus {1,.1 rotate z*90 translate <0,0,-60.9>}
  38.   torus {1,.1 rotate z*90 translate <0,0,60.9>}
  39.   texture {metal}
  40.  }
  41. }
  42.  
  43. #declare mastelero_gavia_mayor=
  44. union
  45. {
  46.  union
  47.  {
  48.   cone {<0,0,0>,1,<0,0,-40>,.5}
  49.   cone {<0,0,0>,1,<0,0,40>,.5}
  50.   texture {madera1}
  51.  }
  52.  union
  53.  {
  54.   cylinder {<0,0,5>,<0,0,-5>,1.05}
  55.   sphere {0,1 scale <1,1,.1> translate <0,0,20>}
  56.   sphere {0,1 scale <1,1,.1> translate <0,0,-20>}
  57.   sphere {0,.75 scale <1,1,.1> translate <0,0,40>}
  58.   sphere {0,.75 scale <1,1,.1> translate <0,0,-40>}
  59.   torus {.75,.1 rotate z*90 translate <0,0,-40.9>}
  60.   torus {.75,.1 rotate z*90 translate <0,0,40.9>}
  61.   texture {metal}
  62.  }
  63. }
  64.  
  65. #declare mastelero_mayor_trinquete=
  66. union
  67. {
  68.  union
  69.  {
  70.   cone {<0,0,0>,1.5,<0,0,-50>,1}
  71.   cone {<0,0,0>,1.5,<0,0,50>,1}
  72.   texture {madera1}
  73.  }
  74.  union
  75.  {
  76.   cylinder {<0,0,10>,<0,0,-10>,1.55}
  77.   sphere {0,1.5 scale <1,1,.1> translate <0,0,20>}
  78.   sphere {0,1.5 scale <1,1,.1> translate <0,0,-20>}
  79.   sphere {0,1.25 scale <1,1,.1> translate <0,0,40>}
  80.   sphere {0,1.25 scale <1,1,.1> translate <0,0,-40>}
  81.   torus {1,.1 rotate z*90 translate <0,0,-50.9>}
  82.   torus {1,.1 rotate z*90 translate <0,0,50.9>}
  83.   texture {metal}
  84.  }
  85. }
  86.  
  87. #declare mastelero_gavia_trinquete=
  88. union
  89. {
  90.  union
  91.  {
  92.   cone {<0,0,0>,1,<0,0,-35>,.5}
  93.   cone {<0,0,0>,1,<0,0,35>,.5}
  94.   texture {madera1}
  95.  }
  96.  union
  97.  {
  98.   cylinder {<0,0,5>,<0,0,-5>,1.05}
  99.   sphere {0,1 scale <1,1,.1> translate <0,0,15>}
  100.   sphere {0,1 scale <1,1,.1> translate <0,0,-15>}
  101.   sphere {0,.75 scale <1,1,.1> translate <0,0,30>}
  102.   sphere {0,.75 scale <1,1,.1> translate <0,0,-30>}
  103.   torus {.75,.1 rotate z*90 translate <0,0,-35.9>}
  104.   torus {.75,.1 rotate z*90 translate <0,0,35.9>}
  105.   texture {metal}
  106.  }
  107. }
  108.  
  109. #declare cofa=
  110. union
  111. {
  112.  union
  113.  {
  114.   cylinder {<-5,0,0>,<-5,-.5,0>,9}
  115.   box {<-5,0,9>,<9,-.5,-9>}
  116.   texture {madera2}
  117.  }
  118.  difference
  119.  {
  120.   union
  121.   {
  122.    cylinder {<-5,1,0>,<-5,-1,0>,10}
  123.    box {<-5,1,10>,<10,-1,-10>}
  124.   }
  125.   union
  126.   {
  127.    cylinder {<-5,2,0>,<-5,-2,0>,8}
  128.    box {<-5,2,8>,<8,-2,-8>}
  129.   }
  130.   texture {madera1}
  131.  }
  132.  union
  133.  {
  134.   torus {1,.1 rotate z*90 translate <-5,0,-10.9>}
  135.   torus {1,.1 rotate z*90 translate <0,0,-10.9>}
  136.   torus {1,.1 rotate z*90 translate <5,0,-10.9>}
  137.   torus {1,.1 rotate z*90 translate <10,0,-10.9>}
  138.   torus {1,.1 rotate z*90 translate <-5,0,10.9>}
  139.   torus {1,.1 rotate z*90 translate <0,0,10.9>}
  140.   torus {1,.1 rotate z*90 translate <5,0,10.9>}
  141.   torus {1,.1 rotate z*90 translate <10,0,10.9>}
  142.   torus {1,.1 rotate x*90 translate <-15.9,0,0>}
  143.   torus {1,.1 rotate x*90 translate <9.9,0,0>}
  144.   texture {metal}
  145.  }
  146. }
  147.  
  148. #declare detalles_palo_mayor=
  149. union
  150. {
  151.  cylinder {<0,10.5,0>,<0,9.5,0>,7.5}
  152.  #declare aa=0
  153.  #while (aa<360)
  154.   sphere {0,1 scale <1,1.5,1> translate <-6,11.5,0> rotate y*aa}
  155.   cylinder {<-6,10,0>,<-6,7,0>,.5 rotate y*aa}
  156.   #declare aa=aa+30
  157.  #end
  158.  texture {madera1}
  159. }
  160.  
  161. #declare detalles_trinquete=
  162. union
  163. {
  164.  #declare aa=0
  165.  #while (aa<10)
  166.    torus {4,.5 translate <0,40+aa,0> texture {cuerda}}
  167.    #declare aa=aa+1
  168.  #end
  169. }
  170.  
  171. /**************************************************** palos *****************************/
  172. #declare palo_mayor=
  173. union
  174. {
  175.  object {detalles_palo_mayor}
  176.  object {cofa translate <0,90,0>}
  177.  object {mastelero_mayor_mayor translate <-10,85,0>}
  178.  object {mastelero_gavia_mayor translate <-9,160,0>}
  179.  union
  180.  {
  181.   cone {<0,0,0>,4,<0,105,0>,2.5}
  182.   cone {<-5,90,0>,2.5,<-5,170,0>,1}
  183.   cone {<-3,160,0>,1,<-3,200,0>,.25}
  184.   box {<-10,165,3>,<0,163,-3>}
  185.   texture {madera1}
  186.  }
  187.  union
  188.  {
  189.   cylinder {<-5,100,0>,<-5,104,0>,3.5}
  190.   box {<-5,100,3.5>,<0,104,-3.5>}
  191.   cylinder {<0,100,0>,<0,104,0>,3.5}
  192.   cylinder {<-5,169,0>,<-5,165,0>,2}
  193.   box {<-5,169,2>,<-3,165,-2>}
  194.   cylinder {<-3,169,0>,<-3,165,0>,2}
  195.  
  196.   torus {1,.1 rotate z*90 translate <-7,164,-3.9>}
  197.   torus {1,.1 rotate z*90 translate <-4,164,-3.9>}
  198.   torus {1,.1 rotate z*90 translate <-1,164,-3.9>}
  199.   torus {1,.1 rotate z*90 translate <-7,164,3.9>}
  200.   torus {1,.1 rotate z*90 translate <-4,164,3.9>}
  201.   torus {1,.1 rotate z*90 translate <-1,164,3.9>}
  202.   torus {1,.1 rotate x*90 translate <-5.9,164,0>}
  203.   torus {1,.1 rotate x*90 translate <.9,164,0>}
  204.  
  205.   texture {metal}
  206.  }
  207. }
  208.  
  209. #declare trinquete=
  210. union
  211. {
  212.  object {detalles_trinquete}
  213.  object {cofa translate <0,85,0>}
  214.  object {mastelero_mayor_trinquete translate <-10,80,0>}
  215.  object {mastelero_gavia_trinquete translate <-9,145,0>}
  216.  union
  217.  {
  218.   cone {<0,-10,0>,4,<0,100,0>,2.5}
  219.   cone {<-5,85,0>,2.5,<-5,155,0>,1}
  220.   cone {<-3,145,0>,1,<-3,185,0>,.25}
  221.   box {<-10,150,3>,<0,148,-3>}
  222.   texture {madera1}
  223.  }
  224.  union
  225.  {
  226.   cylinder {<-5,95,0>,<-5,99,0>,3.5}
  227.   box {<-5,95,3.5>,<0,99,-3.5>}
  228.   cylinder {<0,95,0>,<0,99,0>,3.5}
  229.   cylinder {<-5,150,0>,<-5,154,0>,2}
  230.   box {<-5,150,2>,<-3,154,-2>}
  231.   cylinder {<-3,150,0>,<-3,154,0>,2}
  232.  
  233.   torus {1,.1 rotate z*90 translate <-7,149,-3.9>}
  234.   torus {1,.1 rotate z*90 translate <-4,149,-3.9>}
  235.   torus {1,.1 rotate z*90 translate <-1,149,-3.9>}
  236.   torus {1,.1 rotate z*90 translate <-7,149,3.9>}
  237.   torus {1,.1 rotate z*90 translate <-4,149,3.9>}
  238.   torus {1,.1 rotate z*90 translate <-1,149,3.9>}
  239.   torus {1,.1 rotate x*90 translate <-5.9,149,0>}
  240.   torus {1,.1 rotate x*90 translate <.9,149,0>}
  241.  
  242.   texture {metal}
  243.  }
  244. }
  245.  
  246. #declare mesana=
  247. union
  248. {
  249.  cone {<0,0,0>,3,<0,130,0>,.5 texture {madera1}}
  250.  #declare aa=30
  251.  #while (aa<35)
  252.    torus {3,.5 translate <0,aa,0> texture {cuerda}}
  253.    #declare aa=aa+1
  254.  #end
  255.  cylinder {<0,125,0>,<0,131,0>,.65 texture {metal}}
  256.  cylinder {<0,85,0>,<0,95,0>,1.35 texture {metal}}
  257.  torus {1,.1 rotate z*90 translate <-1.64,127,0> texture {metal}}
  258. }
  259.  
  260. #declare baupres=
  261. union
  262. {
  263.  union
  264.  {
  265.   cone {<0,0,0>,3,<-110,0,0>,2}
  266.   cone {<-100,3,0>,2,<-160,3,0>,.25}
  267.   texture {madera1}
  268.  }
  269.  union
  270.  {
  271.   cylinder {<-105,3,0>,<-109,3,0>,3}
  272.   cylinder {<-105,0,0>,<-109,0,0>,3}
  273.   cylinder {<-160.1,3,0>,<-155,3,0>,.5}
  274.   torus {1,.1 rotate x*90 translate <-157.5,4.59,0>}
  275.   box {<-105,3,3>,<-109,0,-3>}
  276.   texture {metal}
  277.  }
  278. }
  279.  
  280.